home *** CD-ROM | disk | FTP | other *** search
/ Kids' Bible Fun Pack / Kids' CD-ROM Bible Fun Pack (1997)(Education Publishing Concepts)[Mac-PC].iso / pc / BIBLESTO / SMO45.DIR / 00084_Script_84 < prev    next >
Text File  |  1996-09-07  |  607b  |  25 lines
  1. on exitFrame
  2.   global camlist
  3.   repeat with roll = 1 to 30
  4.     if rollover(roll) then
  5.       if getAt(camlist,roll) = 1 then
  6.         set the cursor of sprite roll to [500,501]
  7.         updatestage
  8.         repeat while rollover (roll)
  9.           if the mouseDown then
  10.             set the cursor of sprite roll to [500,501]
  11.             updatestage
  12.             
  13.             repeat while the mouseDown
  14.               nothing
  15.             end repeat
  16.             exit repeat
  17.           end if
  18.         end repeat
  19.         cursor 0
  20.       end if
  21.     end if
  22.   end repeat
  23.   cursor 0
  24.   go the frame
  25. end